%ex2


%a
disp("a)")
fprintf("Espaco de amostragem de 'retirar uma nota da caixa' \n")
% S={5€,5€,5€, (...)}

x = repelem( {'5€','50€','100€'}, [90,9,1]);
S = reshape(x,[10,10])

p = 1 / 100;

fprintf("Probabilidade de sair uma nota= %f \n",p)


%b
disp("b)")
fprintf("Espaco de amostragem de 'o valor de uma nota retirada a sorte da caixa' \n")
fprintf("S={5€,50€,100€} \n")
p5 = 90 / 100;
p50 = 9 / 100;
p100 = 1 / 100;

fprintf("Probabilidade de sair 5€ = %f \n",p5)
fprintf("Probabilidade de sair 50€ = %f \n",p50)
fprintf("Probabilidade de sair 100€ = %f \n",p100)


px = zeros(1,3);
x = [5 50 100];

px(1) = 90/100;
px(2) = 9/100;
px(3) = 1/100;

figure(1);
hold on;

subplot(2,2,[1,2]);

stem(x,px);
axis([0 101 0 1]);
xlabel('x');
ylabel('pX');
title("Grafico Funcao de massa de probabilidade de X");


%c

disp("c)")

Fx = cumsum(pX);
Fx = [0 0 Fx 0 0];  
x = -1:8;
Fx

subplot(2,2,[3,4])

stairs(x,Fx);
axis([-1 8 0 1]);
xlabel('x');
ylabel('FX');
title("Grafico Funcao de distribuicao acumulada de X");